begin "follow"
integer TV, MP, OLD;
print ("Physical TV number to follow: "); TV ← (6 lsh 33 + 1) + cvo(inchwl) lsh 18;
print ("Where to watch (CR for this TV, else PHYSICAL line #): "); MP ← cvo(inchwl);
if MP = 0 then call ((-1 lsh 18) + location (('17 lsh 27)+location(MP)), "ttyset");
if (MP←MP-'60) < 0 then usererr (0, 0, "No such terminal!");
call (cvsix("who   "), "setnam");
start_code label swr, cono;
	move MP;
	hrrm cono;
	setz;
	calli '400015;
	 jfcl;
	setom OLD;
	hrri swr;
	hrli '400017;
	calli '400003;
	ttcall;
	calli '12;
swr:	move TV;	comment WARNING! Remember IOT-USER mode!;
	calli '400070;
	trz '17;
	camn OLD;
	 calli '400024;
	movem OLD;
cono:	'734200000000;
	'734140000000;
	calli '400024
end
end "follow"